home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Basic_Plus_Examples / PUSHEVNT < prev    next >
Encoding:
Text File  |  2005-03-02  |  2.1 KB  |  65 lines
  1. 10    ! ****************************************************
  2. 20    ! Example: PUSHBUTTON Events
  3. 30    !
  4. 40    ! This program generates a bank of four PUSHBUTTON
  5. 50    ! widgets. When you click any pushbutton, the entire
  6. 60    ! bank moves in the direction specified on the pushbutton.
  7. 70    !
  8. 80    ! ****************************************************
  9. 90    !
  10. 100       ASSIGN @Main TO WIDGET "PANEL"
  11. 110       CONTROL @Main;SET ("TITLE":" Example: PUSHBUTTON Events")
  12. 120       CONTROL @Main;SET ("HEIGHT":130,"WIDTH":275,"X":120,"Y":60)
  13. 130       CONTROL @Main;SET ("SYSTEM MENU":"Quit")
  14. 140   !
  15. 150   ! Create a bank of PUSHBUTTON widgets
  16. 160   !
  17. 170       ASSIGN @Pb1 TO WIDGET "PUSHBUTTON";PARENT @Main,SET ("X":40,"Y":10,"TAB STOP":1)
  18. 180       ASSIGN @Pb2 TO WIDGET "PUSHBUTTON";PARENT @Main,SET ("X":140,"Y":10,"TAB STOP":1)
  19. 190       ASSIGN @Pb3 TO WIDGET "PUSHBUTTON";PARENT @Main,SET ("X":40,"Y":60,"TAB STOP":1)
  20. 200       ASSIGN @Pb4 TO WIDGET "PUSHBUTTON";PARENT @Main,SET ("X":140,"Y":60,"TAB STOP":1)
  21. 210   !
  22. 220   ! Label the buttons
  23. 230   !
  24. 240       CONTROL @Pb1;SET ("LABEL":"MOVE LEFT")
  25. 250       CONTROL @Pb2;SET ("LABEL":"MOVE RIGHT")
  26. 260       CONTROL @Pb3;SET ("LABEL":"MOVE UP")
  27. 270       CONTROL @Pb4;SET ("LABEL":"MOVE DOWN")
  28. 280   !
  29. 290   ! Set up the button event handlers
  30. 300   !
  31. 310       ON EVENT @Main,"SYSTEM MENU" GOTO Finis
  32. 320       ON EVENT @Pb1,"ACTIVATED" GOSUB Moveleft
  33. 330       ON EVENT @Pb2,"ACTIVATED" GOSUB Moveright
  34. 340       ON EVENT @Pb3,"ACTIVATED" GOSUB Moveup
  35. 350       ON EVENT @Pb4,"ACTIVATED" GOSUB Movedown
  36. 360   !
  37. 370       LOOP
  38. 380           WAIT FOR EVENT
  39. 390       END LOOP
  40. 400   !
  41. 410   ! Service the button events
  42. 420   !
  43. 430  Moveleft:!
  44. 440       CONTROL @Main;SET ("X":50)
  45. 450       BEEP
  46. 460       RETURN
  47. 470   !
  48. 480  Moveright:!
  49. 490       CONTROL @Main;SET ("X":150)
  50. 500       BEEP
  51. 510       RETURN
  52. 520   !
  53. 530  Moveup:!
  54. 540       CONTROL @Main;SET ("Y":30)
  55. 550       BEEP
  56. 560       RETURN
  57. 570   !
  58. 580  Movedown:!
  59. 590       CONTROL @Main;SET ("Y":100)
  60. 600       BEEP
  61. 610       RETURN
  62. 620  Finis:!
  63. 630       ASSIGN @Main TO *   ! Delete PANEL widget
  64. 640       END
  65.